#install.packages("hash")
#install.packages("Rcpp",type="binary")
library("hash")
setwd("C:\\miao\\r")
#print(getwd())
source("facecat.r")
facecat.setProgramDir("C:\\miao\\r") #设置目录
facecat.showWindow("C:\\miao\\r\\page.html") #显示窗体
facecat.startTimer(1000, 10) #启动秒表
#监听消息循环
while(facecat.getMessage() > 0){
  msg <-facecat.doMessage()
  if(msg == 1){
    print("navigate ok")
  }
  if(msg == 2){
    cacheText <- facecat.getCacheText()
    if(cacheText != ""){
      
    }
  }
  if(msg == 3){
  }
}




